home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / RBBS1.LZH / BULLET6 < prev    next >
Text File  |  1986-04-15  |  19KB  |  398 lines
  1.           ============= Reported Bugs/Problems ==============
  2. N O T E :    These fixes are not part of the downloadable files on this system.
  3.              They are provided so that you may apply them to the copies of the
  4.              BASIC source code for RBBS which you have.  These fixes will be 
  5.              included in the next release of RBBS-PC.
  6.  
  7. CONVENTIONS: The temporary fixes are assigned numbers that correspond to the
  8.              month, day, and order in which they were reported.  The fixes are
  9.              dated (if there are any) following the problem description.  The
  10.              lines of source code that are changed/modified/added are
  11.              designated by the comment beginning in column 70 of "' TFMMDD#".
  12.  
  13. PROGRAM   EXT    DATE     DESCRIPTION/SOLUTION
  14. --------  ---  --------   --------------------------------------------
  15. VERSION CPC14-1A
  16.  
  17. RBBS-PC   BAS  03/16/86  7:00PM E.S.T. First release of CPC14-1A
  18.  
  19. -------------------------PROBLEM 0318/1----------------------------------------
  20. RBBS-PC   BAS  03/18/86  It is possible for RBBS-PC to go in to a loop under
  21.           EXE            certain conditions when pressing the "END" key.      
  22.  
  23.                03/20/86  Correct line 1398 to the code that follows:   
  24.  
  25. 1398 CALL CARRIER
  26.      IF SUBROUTINE.PARAMETER = -1 THEN _
  27.         RETURN
  28.      FUNCTION.KEY = 0                                                ' TF03181 
  29.      A$ = FIRST.NAME$ + ", your presence here is unacceptable."
  30.      GOSUB 12975
  31.      IF USER.FILE.INDEX < 1 THEN _
  32.         GOTO 10698
  33.      USER.SECURITY.LEVEL = MINIMUM.LOGON.SECURITY - 1
  34.      GOTO 1386
  35.  
  36. -------------------------PROBLEM 0318/2----------------------------------------
  37. RBBS-PC   BAS  03/18/86  Attempting to download a file with no extention
  38.           EXE            using ASCII protocall fails with "Use MNP or Xmodem".
  39.                          Files with a "Q" as the middle letter in the
  40.                          extention will not force MNP or Xmodem.
  41.  
  42.                03/20/86  Correct line 20247 to the code that follows:   
  43.  
  44. 20247 DF = 0
  45.       N$ = FILE.NAME$
  46.       GOSUB 20282
  47.       IF EXTENTION$ = "" THEN _                                      ' TF03182
  48.          GOTO 20248                                                  ' TF03182
  49.       IF INSTR(".WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR",EXTENTION$) OR _
  50.          MID$(EXTENTION$,2,1) = "Q" OR _                             ' TF03182
  51.          (REQUIRE.NON.ASCII AND EXTENTION$ = ".BAS") THEN _
  52.          A$ = "Non-ASCII transfer required" : _
  53.          GOSUB 12979 : _
  54.          DF = TRUE
  55.  
  56. -------------------------PROBLEM 0318/2----------------------------------------
  57. RBBS-PC   BAS  03/18/86  Using the Pgup/Pgdn keys overwrite data on the 
  58.           EXE            display screen.
  59.  
  60.                03/20/86  Do not use the Pgup/Pgdn keys prior to a User
  61.                          logging on completely.  This will be corrected
  62.                          permanently in the next release.  No temporary
  63.                          fix will be provided.
  64.  
  65. -------------------------PROBLEM 0324/1----------------------------------------
  66. RBBS-PC   BAS  03/24/86  A left parenthesis was missing when prompted to 
  67.           EXE            enter messages.
  68.  
  69.                03/28/86  Correct line 2100 to add a left parenthesis in the
  70.                          code that follows: 
  71.  
  72. 2100 A$ = "Type " + _
  73.           FT$ + _
  74.           " (Press [ENTER] to end," + _                              ' TF03241
  75.           STR$(MAX.MESSAGE.LINES) + _
  76.           " lines max)"
  77.      GOSUB 12975
  78.      GOSUB 3200
  79.  
  80. -------------------------PROBLEM 0324/2----------------------------------------
  81. RBBS-PC   BAS  03/24/86  When uploading and trying to overwrite an existing 
  82.           EXE            file, the system locks up.
  83.  
  84.                03/28/86  The correction to this problem cleans up the sloopy
  85.                          code in lines 20440 through 20452 (inclusive). 
  86.                          Additionally, line number 20475 was moved up two
  87.                          lines of source code.  Lines 20440 through 20475,
  88.                          inclusive, should look like:
  89.  
  90. 20440   CALL FINDIT                                                  ' TF03242
  91. 20450   IF OK THEN _                                                 ' TF03242
  92.            GOTO 20452 _                                              ' TF03242
  93.         ELSE GOTO 20455                                              ' TF03242
  94. 20451   A$ = "Invalid file name"
  95.         GOSUB 12979
  96.         GOTO 20420
  97. 20452   IF USER.SECURITY.LEVEL >= OVERWRITE.SECURITY.LEVEL THEN _ 
  98.            A$ = "Overwrite file" : _                                
  99.            GOSUB 12995 : _
  100.            IF YES THEN _
  101.               Z$ = FILE.NAME$ : _
  102.               CLOSE 2 : _                                            ' TF03242
  103.               KILL FILE.NAME$ : _
  104.               GOTO 20475
  105. 20453   CLOSE 2
  106.         A$ = Z$ + " exists! Please use a new file name"
  107.         GOSUB 12977
  108.         GOTO 20420
  109. 20455 NEXT
  110. 20475 FILE.NAME.HOLD$ = Z$                                           ' TF03242
  111.       Z$ = UPLOAD.DIRECTORY$
  112.       GOSUB 12977                                                    ' TF03242
  113.       CALL FINDFREE
  114.       IF VAL(FREE.SPACE$) < 2000 THEN _
  115.          GOTO 20015
  116.       A$ = "Upload disk has" + FREE.SPACE$
  117.       GOSUB 12977
  118.       LINE.25$ = "(U) " + FILE.NAME.HOLD$
  119.       SUBROUTINE.PARAMETER = 2
  120.       CALL LINE25
  121.       T$ = "Upload" + TRANSFER.OPTIONS$
  122.       IF NOT OK THEN _
  123.          OK = TRUE
  124.  
  125. -------------------------PROBLEM 0324/3----------------------------------------
  126. RBBS-PC   BAS  03/24/86  The NEW and SCAN commands would include (and include
  127.           EXE            twice!) the upload directory if the disk that held the
  128.                          upload directory was available to be downloaded from.
  129.  
  130.                03/28/86  The correction to this problem is to confine directory
  131.                          searches to download drives only.  Correct line 53070 
  132.                          as follows:
  133. 53070 G = DIR.INDEX
  134.       J = DIR.INDEX
  135.       FOR SUBDIR.INDEX = 1 TO SUBDIR.COUNT - 1                       ' TF03243
  136.         B$(DIR.INDEX) = SUBDIR$(SUBDIR.INDEX) + _
  137.                 "*." + _
  138.                 DIRECTORY.EXTENTION$
  139.         GOSUB 10720
  140.         CLS
  141.       NEXT
  142.       SUBROUTINE.PARAMETER = 1
  143.       CALL LINE25
  144.       QX = G
  145.       X = DIR.INDEX+1
  146.       GOSUB 20161
  147.       LIST.NEW = FALSE
  148.       RETURN
  149.  
  150. -------------------------PROBLEM 0324/4----------------------------------------
  151. RBBS-SUB  BAS  03/24/86  If running RBBS-PC on an Alloy PC-Slave/16 and no   
  152.           EXE            cable was connected to the communications port, RBBS- 
  153.                          PC's error recovery would shut down RBBS-PC with the 
  154.                          message "Unrecoverable error on communications port."
  155.  
  156.                03/28/86  The correction to this problem is to change the 
  157.                          ANSWERIT error recovery in RBBS-SUB by adding a new
  158.                          line to the beginning and moving the line number 70
  159.                          indicator up to the new line as follows:
  160.  
  161. 70     IF ERL = 210 THEN RESUME 220                                  ' TF03244
  162.        IF ERL <> 328 THEN _                                          ' TF03244
  163.           RET.ERL = ERL
  164.        IF (ERL = 328 OR ERL = 275 OR ERL = 324) AND ERR = 57 THEN _
  165.           RESUME 328
  166.        IF ERL = 324 AND ERR = 69 THEN _
  167.           SUBROUTINE.PARAMETER = 5
  168.        EC = ERR
  169.        RESUME 327
  170.  
  171. -------------------------PROBLEM 0324/5----------------------------------------
  172. RBBS-SUB  BAS  03/24/86  If the SYSOP (as opposed to a user with SYSOP
  173.           EXE            privileges) logs on to any node other than node 1 in  
  174.                          a multiple user RBBS-PC system, the message "Access
  175.                          denied" is issued.
  176.  
  177.                03/28/86  The correction to this problem is to add a line of
  178.                          source code to the READPROF subroutine as follows:
  179.  
  180. 44000 PRINT "NODE.RECORD.INDEX", NODE.RECORD.INDEX
  181.       GET 1,NODE.RECORD.INDEX
  182.       EIGHT.BIT = VAL(MID$(MESSAGE.RECORD$,42,2))
  183.       BPS = VAL(MID$(MESSAGE.RECORD$,44,2))
  184.       PRINT "BPS",BPS
  185.       CALL COMMINFO
  186.       UPPER.CASE = VAL(MID$(MESSAGE.RECORD$,46,2))
  187.       MINUTES.PER.SESSION! = VAL(MID$(MESSAGE.RECORD$,48,5))
  188.       GR = VAL(MID$(MESSAGE.RECORD$,53,2))
  189.       SYSOP = VAL(MID$(MESSAGE.RECORD$,55,2))
  190.       IF BPS = -1 THEN _
  191.          BAUD.RATE.DIVISOR = &H180:'                                   300 BAUD
  192.       IF BPS = -2 THEN _
  193.          BAUD.RATE.DIVISOR = &H100:'                                   450 BAUD
  194.       IF BPS = -3 THEN _
  195.          BAUD.RATE.DIVISOR = &H60:'                                   1200 BAUD
  196.       IF BPS = -4 THEN _
  197.          BAUD.RATE.DIVISOR = &H30:'                                   2400 BAUD
  198.       CALL SETBAUD
  199.       CALL FINDTIME (USER.LOGON.TIME!)
  200.       IF MINUTES.PER.SESSION! < 1 THEN _
  201.          MINUTES.PER.SESSION! = 3
  202.       IF NOT EIGHT.BIT THEN _
  203.          OUT LINE.CONTROL.REGISTER,&H1A
  204.       IF SYSOP THEN _
  205.          FIRST.NAME$ = SYSOP.PASSWORD.1$ : _
  206.          LAST.NAME$ = SYSOP.PASSWORD.2$ : _
  207.          ACTIVE.USER.NAME$ = MID$(FIRST.NAME$ + _                    ' TF03245
  208.                              " " + LAST.NAME$,1,31) : _              ' TF03245
  209.          EXIT SUB
  210.       FIRST.NAME.END = INSTR(MESSAGE.RECORD$," ")
  211.       LAST.NAME.END = INSTR(FIRST.NAME.END + 1,MESSAGE.RECORD$," ")
  212.       FIRST.NAME$ = LEFT$(MESSAGE.RECORD$,FIRST.NAME.END-1)
  213.       LAST.NAME$ = MID$(MESSAGE.RECORD$,FIRST.NAME.END + 1,LAST.NAME.END-(FIRST.NAME.END + 1))
  214.       ACTIVE.USER.NAME$ = MID$(FIRST.NAME$ + " " + LAST.NAME$,1,31)
  215.       Z$ = FIRST.NAME$
  216.       END SUB
  217.  
  218. -------------------------PROBLEM 0325/1----------------------------------------
  219. RBBS-SUB  BAS  03/25/86  If the a user returns from a "door" or a remote SYSOP
  220.           EXE            from dropping to DOS, the colors on the local color   
  221.                          monitor is not reset to the RBBS-PC configuration  
  222.                          selection.
  223.  
  224.                03/28/86  The correction to this problem is to add a line of
  225.                          source code to the READPROF subroutine as follows:
  226.  
  227. 44000 PRINT "NODE.RECORD.INDEX", NODE.RECORD.INDEX
  228.       GET 1,NODE.RECORD.INDEX
  229.       EIGHT.BIT = VAL(MID$(MESSAGE.RECORD$,42,2))
  230.       BPS = VAL(MID$(MESSAGE.RECORD$,44,2))
  231.       PRINT "BPS",BPS
  232.       CALL COMMINFO
  233.       UPPER.CASE = VAL(MID$(MESSAGE.RECORD$,46,2))
  234.       MINUTES.PER.SESSION! = VAL(MID$(MESSAGE.RECORD$,48,5))
  235.       GR = VAL(MID$(MESSAGE.RECORD$,53,2))
  236.       SYSOP = VAL(MID$(MESSAGE.RECORD$,55,2))
  237.       IF REQUIRED.RINGS > 0 AND _                                    ' TF03251
  238.          INSTR(MODEM.INIT.COMMAND$,"S0=255") THEN _                  ' TF03251
  239.          COLOR 7,0,0 _                                               ' TF03251
  240.       ELSE COLOR FG,BG,BORDER                                        ' TF03251
  241.       IF BPS = -1 THEN _
  242.          BAUD.RATE.DIVISOR = &H180:'                                   300 BAUD
  243.       IF BPS = -2 THEN _
  244.          BAUD.RATE.DIVISOR = &H100:'                                   450 BAUD
  245.       IF BPS = -3 THEN _
  246.          BAUD.RATE.DIVISOR = &H60:'                                   1200 BAUD
  247.       IF BPS = -4 THEN _
  248.          BAUD.RATE.DIVISOR = &H30:'                                   2400 BAUD
  249.       CALL SETBAUD
  250.       CALL FINDTIME (USER.LOGON.TIME!)
  251.       IF MINUTES.PER.SESSION! < 1 THEN _
  252.          MINUTES.PER.SESSION! = 3
  253.       IF NOT EIGHT.BIT THEN _
  254.          OUT LINE.CONTROL.REGISTER,&H1A
  255.       IF SYSOP THEN _
  256.          FIRST.NAME$ = SYSOP.PASSWORD.1$ : _
  257.          LAST.NAME$ = SYSOP.PASSWORD.2$ : _
  258.          ACTIVE.USER.NAME$ = MID$(FIRST.NAME$ + _                    ' TF03245
  259.                              " " + LAST.NAME$,1,31) : _              ' TF03245
  260.          EXIT SUB
  261.       FIRST.NAME.END = INSTR(MESSAGE.RECORD$," ")
  262.       LAST.NAME.END = INSTR(FIRST.NAME.END + 1,MESSAGE.RECORD$," ")
  263.       FIRST.NAME$ = LEFT$(MESSAGE.RECORD$,FIRST.NAME.END-1)
  264.       LAST.NAME$ = MID$(MESSAGE.RECORD$,FIRST.NAME.END + 1,LAST.NAME.END-(FIRST.NAME.END + 1))
  265.       ACTIVE.USER.NAME$ = MID$(FIRST.NAME$ + " " + LAST.NAME$,1,31)
  266.       Z$ = FIRST.NAME$
  267.       END SUB
  268.  
  269. -------------------------PROBLEM 0326/1----------------------------------------
  270. RBBS-PC   BAS  03/26/86  If a user is in a conference and issues the "J;M"    
  271.           EXE            to join the main message system, the command is       
  272.                          ignored and the prompt for joining a conference is 
  273.                          displayed.
  274.  
  275.                03/28/86  The correction to this problem is to add a line of
  276.                          source code after line number 5323 as follows:
  277.  
  278. 5323 CALL ALLCAPS (B$(1))
  279.      IF LEN(B$(1)) = 1 AND B$(1) = "M" THEN _                        ' TF03261
  280.         GOTO 5350                                                    ' TF03261
  281.      GRN$ = B$(1)
  282.      Q = 0
  283.      IF LEN(GRN$) > 7 THEN _
  284.         EXPERT.USER = FALSE : _
  285.         GOTO 5312
  286.      ACTIVE.MESSAGE.FILE$ = MID$(MAIN.MESSAGE.FILE$,1,2) + GRN$ + "M.DEF"
  287.      FILE.NAME$ = ACTIVE.MESSAGE.FILE$
  288.      CALL FINDIT
  289.      IF OK THEN _
  290.         GOTO 5324
  291.      ACTIVE.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$
  292.      GRN$ = ""
  293.      GOTO 5312
  294.  
  295. -------------------------PROBLEM 0326/2----------------------------------------
  296. RBBS-PC   BAS  03/26/86  If a user leaves a message of more than 30 lines and 
  297.           EXE            then leaves a second message of more than 30 lines,   
  298.                          for all lines after line number 30 there may be parts
  299.                          of the first message retained.
  300.  
  301.                03/28/86  The correction to this problem is to change the
  302.                          30 in line number 2010 as follows:
  303.  
  304. 2010 LINES.IN.MESSAGE = 0
  305.      L = 0
  306.      X = 0
  307.      FOR I = 1 TO MAX.MESSAGE.LINES                                  ' TF03262
  308.        A$(I) = ""
  309.      NEXT
  310.      IF SYSOP.COMMENT THEN _
  311.         GOTO 2100
  312.      IF SYSOP.MESSAGE THEN _
  313.         SYSOP.MESSAGE = FALSE : _
  314.         GOTO 2077
  315.  
  316. -------------------------PROBLEM 0404/1----------------------------------------
  317. RBBS-PC   BAS  04/04/86  Attempting to download a file with the extension 
  318.           EXE            ".BAS" is allowed even if CONFIG option has been 
  319.                          selected to force such files to be downloaded with 
  320.                          a non-ASCII protcol.
  321.  
  322.                04/10/86  Correct line 20247 to the code that follows:   
  323.  
  324. 20247 DF = 0
  325.       N$ = FILE.NAME$
  326.       GOSUB 20282
  327.       IF EXTENTION$ = "" THEN _                                      ' TF03182
  328.          GOTO 20248                                                  ' TF03182
  329.       IF INSTR(".WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR",EXTENTION$) OR _
  330.          MID$(EXTENTION$,2,1) = "Q" OR _                             ' TF03182
  331.          (REQUIRE.NON.ASCII AND EXTENTION$ = "BAS") THEN _           ' TF04041
  332.          A$ = "Non-ASCII transfer required" : _
  333.          GOSUB 12979 : _
  334.          DF = TRUE
  335.  
  336. -------------------------PROBLEM 0406/1----------------------------------------
  337. RBBS-PC   BAS  04/06/86  If the SYSOP reads a message whose number is less than
  338.           EXE            1000, the number of the last message read by the SYSOP
  339.                          will be record as that number plus whatever the digits
  340.                          were for the last message was.  If the previous 
  341.                          number read by the SYSOP was 1000 and the next time on
  342.                          the SYSOP reads message 998 and logs off, RBBS-PC
  343.                          recorded the last message read by the SYSOP as 9990.
  344.  
  345.                04/10/86  The correction to this problem is to add a line after
  346.                          the "GET 1,1" in line number 5700 as follows:
  347.  
  348. 5700 GOSUB 12986
  349.      GOSUB 30500
  350.      GET 1,1
  351.      MID$(MESSAGE.RECORD$,123,4) = "    "                            ' TF04061
  352.      MID$(MESSAGE.RECORD$,123,4) = MID$(STR$(LAST.MESSAGE.READ),2)
  353.      PUT 1,1
  354.      GOSUB 12985
  355.      RETURN
  356.  
  357. -------------------------PROBLEM 0412/1----------------------------------------
  358. RBBS-SUB  BAS  04/12/86  The check for bad file names would not allow files
  359. RBBS-PC   EXE            such as COMM and would allow an error 64 to occur.
  360.  
  361.                04/13/86  Correct line 20741 to the code that follows:   
  362.  
  363. 20741 BAD.FILE.NAME.INDEX = 1
  364.       CALL ALLCAPS (Z$)
  365.       FILE.NAME$ = SUBDIR$(SUBDIR.INDEX) + Z$    
  366.       IF INSTR(FILE.NAME$,"?") OR _
  367.          INSTR(FILE.NAME$,"*") OR _
  368.          INSTR(FILE.NAME$," ") OR _
  369.          INSTR(3,FILE.NAME$,":") OR _
  370.          INSTR(FILE.NAME$,".DEF") OR _
  371.          INSTR(FILE.NAME$,".OLD") OR _
  372.          MID$(FILE.NAME$,LEN(FILE.NAME$),1) = "." THEN _
  373.          BAD.FILE.NAME.INDEX = 2 : _
  374.          EXIT SUB
  375.       IF LEN(Z$) >= 3 THEN _                                         ' TF04121
  376.          IF INSTR("PRN:CON:AUX:NUL:",Z$) THEN _                      ' TF04121
  377.             VIOLATIONS.THIS.SESSION = MAXIMUM.VIOLATIONS :  _        ' TF04121
  378.             VIOLATION$ = VIOLATION$ + Z$ : _                         ' TF04121
  379.             BAD.FILE.NAME.INDEX = 3                                  ' TF04121
  380.       IF LEN(Z$) >= 4 THEN _                                         ' TF04121
  381.          IF INSTR("COM1:COM2:LPT1:LPT2:LPT3:",Z$) THEN _             ' TF04121
  382.             VIOLATIONS.THIS.SESSION = MAXIMUM.VIOLATIONS :  _        ' TF04121
  383.             VIOLATION$ = VIOLATION$ + Z$ : _                         ' TF04121
  384.             BAD.FILE.NAME.INDEX = 3                                  ' TF04121
  385.       IF LEN(Z$) > 12 THEN _                                         ' TF04121
  386.             BAD.FILE.NAME.INDEX = 2                                  ' TF04121
  387.       IF INSTR(Z$,".") > 0 AND _                                     ' TF04121
  388.          ((LEN(Z$)-INSTR(Z$,".")) > 3) THEN _                        ' TF04121
  389.             BAD.FILE.NAME.INDEX = 2                                  ' TF04121
  390.       IF INSTR(Z$,".") > 0 AND _                                     ' TF04121
  391.          (INSTR(Z$,".") > 9) THEN _                                  ' TF04121
  392.             BAD.FILE.NAME.INDEX = 2                                  ' TF04121
  393.       IF INSTR(Z$,".") = 0 AND _                                     ' TF04121
  394.          (LEN(Z$) > 8) THEN _                                        ' TF04121
  395.             BAD.FILE.NAME.INDEX = 2                                  ' TF04121
  396.       END SUB
  397. =================End of Reported Bugs/Fixes for CPC14-1A=================
  398.